home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
351-375
/
disk_352
/
treewalk
/
rexx
/
lcompact.ftw
< prev
next >
Wrap
Text File
|
1992-05-06
|
369b
|
14 lines
/*
* Take each directory/file pair, and build an lcompact command to
* take things from isrc to INCLUDE:, compacting as we go. Note: the
* treewalk filter should filter out directories before lcompact is
* called.
*/
isrc = 'src:include/'
dir = arg(1)
file = arg(2)
parse var dir (isrc) out
address command 'lcompact <'dir || file '>include:'out || file
return 1